Celestin Apprentice 7/Apprentice-Release7.iso/Environments/Clean 1.2.4/MacInterface/palettes.icl

Modula Implementation | 1994-06-24 | 169 b | 9 lines | [TEXT/3PRM]

implementation module palettes;

import mac_types;

PmForeColor :: !Int !Toolbox -> Toolbox;
PmForeColor dstEntry t = code (dstEntry=W,t=U)(z=Z){
    instruction 0xAA97
};